(SPECIAL LASTIO
	 FILELST
	 NEWFILE
	 NEWFILEFLG
	 FAULTFN
	 HASFUNARG
	 GRINPROPS
	 LAPLST
	 #SPELLINGS
	 USERWORDS
	 SPELLING3
	 SPELLING1
	 COUNTRANS
	 APPROVEFLG
	 LASTWORD
	 =FLG
	 SZ
	 SLST
	 SL
	 ←FLG
	 HISTORYFLG
	 LASTHISTORY
	 ↑↑G
	 VAG0
	 EDIT?
	 DWIMCOMS
	 READBUF
	 ARCHIVEFN
	 ARCHIVELST
	 DWIMHISTORY
	 REREADFLG
	 USERINITFN
	 DWIMFLG
	 DWIMVALUE
	 DWIMUSERFN
	 BRKHISTFLG
	 BRKCOMS
	 %%CMDL
	 REMOB
	 KLIST)

(NOCALL	READWIMC
	LAP?
	FINDFAULTFN
	MAKEFILE
	PRINTHISTORY
	DWIMFIND
	HISTORYFIND
	HISTORYFIND1
	NLEFT
	GETX
	ENTRY#
	PRINTHISTORY1
	HISTORYSAVE
	FIXSPELL
	FIXSPELL1
	MOVETOP
	SPELLCOMP
	CHOOZ
	SKOR
	ADDSPELL1
	FIXARGS
	FIXARGS1
	BKFIND2
	ADDSPELL
	DEMODFILE
	BREAKSPELL
	FILEVAR
	DFILE
	EXPLODN
	ERRORX2
	%BREAK1
	%BREAK
	%TRACE
	%BREAKIN
	%UNBREAK
	%UNTRACE
	%EDITF
	%EDITV
	%EDITP
	%INITFN
	%GRINDEF
	%%LAP)

(DECLARE
 (DEFPROP DEFMACRO
	  (LAMBDA(DEF)
	   (COMPFUNC (CADR DEF) (CONS (QUOTE MACRO) (CDADDR DEF)) (QUOTE MACRO))
	   (TYPEFN (CADR DEF)))
	  EXPR))

(EDITV QLIST F LINEREAD (1 DWIMREAD))

(SETQ REMOB
      (CONS (QUOTE DWIMFNS)
	    (MAPCAR (FUNCTION
		     (LAMBDA(X)
		      (PUTPROP X (MAKNUM (GET X (QUOTE SUBR)) (QUOTE FIXNUM)) (QUOTE SYM))
		      X))
		    (QUOTE
		     (EXPLODN ERRORX2
			      %BREAK1
			      %BREAK
			      %TRACE
			      %BREAKIN
			      %UNBREAK
			      %UNTRACE
			      %EDITF
			      %EDITV
			      %EDITP
			      %INITFN
			      %GRINDEF
			      %%LAP)))))